    Mac OS X            	   2          R  %2CLKLAND                                 j  @	enviropix       0,mtRecently Changed Files...   Pa  PartSIT!                        |*]      %CT8BIM     2    NB             momo                  1  Y                            @
guide220.pict  PICT8BIM    4.1   	Frontier  w            Geneva                            	          T  :ub   /   Y 6LAND                            creates a folder full of aliases of files that have changed

local (s = "October 1, 1991")
local (folder = file.folderFromPath (system.deskscripts.path))
if not dialog.ask ("Gather files changed since when?", @s)
	return (false)
marktime = date (s)

on recentlychanged (f) return true if the file matches our search criteria
	return (file.modified (f) > marktime)
on dogather (path)
	local (f)
	fileloop (f in path) loop over all the files in the path
		if file.isFolder (f) it's a folder, recurse
			if f != destfolder don't go into the new folder
				dogather (f) 
		else it's a file
			msg (file.fileFromPath (f))
			if recentlychanged (f) it matches the local script's criteria
				local (destfile = destfolder + file.fileFromPath (f))
				if file.exists (destfile)
					file.delete (destfile)
				file.newAlias (f, destfile) create the alias
				ctgathered++

destfolder = folder + "Recently Changed Files:"
if file.exists (destfolder)
	file.deleteFolder (destfolder)
if not file.newFolder (destfolder) 
	return (false)

ctgathered = 0
dogather (folder)

if ctgathered > 0
	file.openFolder (destfolder)
else
	file.deleteFolder (destfolder)
	s = file.fileFromPath (folder)
	s = "There were no recent changes in the " + s + " folder."
	dialog.alert (s)
return (true)
                                                                                                                                                                                                                                     ! system.deskscripts.recentchanges   0          j    j STR   scpt   B                          
r        